home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / misc / WarTrans.lha / Send < prev   
Encoding:
Text File  |  1998-02-28  |  829 b   |  37 lines
  1. BEGINNING:
  2.  OPEN "com1:9600,n,8,1" FOR OUTPUT AS #1
  3.  INPUT "Enter Filename to send: " , FileName$
  4.  IF FileName$ = "" THEN GOTO FINISH
  5.  OPEN FileName$ FOR INPUT AS #2
  6.  LENGTH = LOF(2)
  7.  PRINT "Lenght of File " FileName$ " is " LENGTH ""
  8.  PRINT "Write this to the Receive program "
  9.  INPUT "and hit Enter, or write 'S' to break. " ,IsThisEnter$
  10.  IF IsThisEnter$ = "S" THEN GOTO QUESTION
  11.  PRINT "Sending File Please Wait..."
  12.  PRINT #1,INPUT$(LENGTH,#2);
  13.  PRINT   "          Done         "
  14.  GOTO QUESTION
  15.  
  16. QUESTION:
  17.  CLOSE #1
  18.  CLOSE #2
  19.  INPUT  "Do you want to Send more files? (Y/N) ",ANSWER$
  20.  ANS$ = LEFT$(ANSWER$,1)
  21.  ANSER$ = UCASE$(ANS$)
  22.  IF ANSER$ = "Y" THEN
  23.    GOTO BEGINNING
  24.  ELSEIF ANSER$ = "N" THEN
  25.    GOTO FINISH
  26.  ELSE
  27.    GOTO QUESTION
  28.  END IF
  29.  
  30. FINISH:
  31.  PRINT "Be seeing you."
  32.  PRINT "                 +Warlock+ "
  33.  END
  34.  
  35.  
  36.   
  37.